From 6398cc72bc2f540bd58978cabc50ec2a79fc0149 Mon Sep 17 00:00:00 2001 From: "Aaron S. Hawley" Date: Wed, 6 Apr 2011 20:27:15 -0700 Subject: [PATCH] * lisp/play/morse.el (denato-region): Handle varying case. --- lisp/ChangeLog | 4 ++++ lisp/play/morse.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09b25e3fb14..9c3d349226e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-04-07 Aaron S. Hawley + + * play/morse.el (denato-region): Handle varying case. (Bug#8386) + 2011-04-06 Chong Yidong * emacs-lisp/cconv.el (cconv--analyse-use): Ignore "ignored" when diff --git a/lisp/play/morse.el b/lisp/play/morse.el index b88f1b264cb..fa0887c0ac5 100644 --- a/lisp/play/morse.el +++ b/lisp/play/morse.el @@ -231,7 +231,7 @@ Geospatial-Intelligence Agency at http://www.nga.mil/") (if (null (looking-at "[a-z]+")) (forward-char 1) (setq str (buffer-substring (match-beginning 0) (match-end 0))) - (if (null (setq nato (rassoc str nato-alphabet))) + (if (null (setq nato (rassoc (capitalize str) nato-alphabet))) (goto-char (match-end 0)) (replace-match (if (string-equal "(" (car nato)) -- 2.30.2